home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / dev / misc / BoulderEngine.lha / BOULDER_Feb_13.lha / JOYSTICK.C < prev    next >
Encoding:
Text File  |  1980-01-01  |  505 b   |  32 lines
  1. SHORT pekb(),pekc(),fire();
  2. SHORT fire()
  3. { short a;
  4. a=pekb(0xBFE000);
  5. if(a>127) {return(0);}
  6. return(1);
  7. }
  8.   /* Dievuleliau, Levas moka M68000 asembleri! */
  9. #asm
  10.    section code
  11.    xdef _pekb
  12. _pekb
  13.    move.l 4(sp),d0
  14.    movem.l a0,-(sp)
  15.    move.l d0,a0
  16.    move.l (a0),d0
  17.    andi.l #$ff,d0
  18.    movem.l (sp)+,a0
  19.    rts
  20.    xdef _pekc
  21. _pekc
  22.    movem.l d1,-(sp)
  23.    move.w ($DFF00C),d0
  24.    andi.l #$300,d0
  25.    divu.w #64,d0
  26.    move.w ($DFF00C),d1
  27.    andi.l #$003,d1
  28.    or.l d1,d0
  29.    movem.l (sp)+,d1
  30.    rts
  31. #endasm
  32.